home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / system-tools / smartcrash / causefailpro.asm < prev    next >
Encoding:
Assembly Source File  |  1995-12-03  |  881 b   |  56 lines
  1. ; FILE: Source:CauseFailPro.ASM          REV: 14 --- System failures with some register
  2. ; History
  3. ;  14     1st release. Has still some bugs, though.
  4. ;
  5.  
  6. ; CauseFailPro --- Written by Harry Sintonen, Public Domain
  7. ;
  8. ; I strongly suggest that you don't try to learn proper assembler programming
  9. ; from this source. ;-D
  10. ;
  11.  
  12. Main    move.l    sp,SpSave
  13.     movem.l    d0/a0,-(sp)
  14.  
  15.     move.l    #$d0,d0
  16.     move.l    #$d1,d1
  17.     move.l    #$d2,d2
  18.     move.l    #$d3,d3
  19.     move.l    #$d4,d4
  20.     move.l    #$d5,d5
  21.     move.l    #$d6,d6
  22.     move.l    #$d7,d7
  23.  
  24. Ptr1    move.l    #$a0,a0
  25.     move.l    #$a1,a1
  26.     move.l    #$a2,a2
  27.     move.l    #$a3,a3
  28.     move.l    #$a4,a4
  29.     move.l    #$a5,a5
  30.     move.l    #$a6,a6
  31.  
  32.     movem.l    d0-d4,-(sp)
  33.  
  34.     pea    Ptr1(pc)
  35.     lea    Ptr2(pc),a5
  36.     movem.l    a0-a1/a5,-(sp)
  37.  
  38. Ptr2    divu    #0,d0
  39. ;    trap    #$B
  40. ;    trap    #$A
  41. ;    trap    #$B
  42. ;    trap    #$E
  43.     trapt
  44.     chk    #-1,d0
  45.     illegal
  46.     dc.w    $ABCD
  47.     dc.w    $FEDC
  48.     movec    cacr,d0
  49.     move.l    SpSave,sp
  50.     rts
  51.  
  52.  
  53.     SECTION    turistiBuSSi,BSS
  54.  
  55. SpSave    ds.l    1
  56.